Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Splitting up $_
while(){
     @line=split(":");      # or split (":", $_);
     print "$line[0]\n";
}
__DATA__