$ ./myperl1 String found where operator expected at ./myperl1 line