use warnings;
use strict;
$_ = '1: A silly sentence (495,a) *BUT* one which will be useful. (3)';
my $pattern = <STDIN>;