print $1,$/ if $line =~ m/ ' (\d+) ' \) /x;