Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. A simple program that assigns to $_ using STDIN
#!/usr/local/bin/perl 
while () { 
    ($first) = split (//, $_); 
    print ("$first\n"); 
}