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