while(defined(my $line = <STDIN>)){
  print $1,"\n" if( $line =~ m/\W?(\d)\W?/ );
}