#!/usr/bin/perl while(){ die unless /(.*)\((RFC \d+)\)/; print "$1 & $2 & Published \\\\\n"; }