Mega Code Archive

 

Categories / Perl / Language Basics

 

Splitting up $_

while(<DATA>){      @line=split(":");      # or split (":", $_);      print "$line[0]\n"; } __DATA__