Help for this page

Select Code to Download


  1. or download this
    if ($file_in_question =~ /^(\d{4})/){
  $year = $1;
}
  2. or download this
    print OUT for map{
  s[(^\d+\s+)[\d\.]+\s+][$1];
  "$year\t$_";
} sort { 
# ... etc.