Help for this page

Select Code to Download


  1. or download this
    @jam = $ham =~ m/\t([^\t]+)\t+([^\t]+)\t+([^\t]+)/;;

print @jam;;
spam spam yam
  2. or download this
    ( $jam ) = $ham =~ m/^[^\t]*\t[^\t]*((?:\t[^\t]*){3})\t[^\t]*$/;;
@jam = split /\t+/, $jam;;

print @jam;;
spam yam