my $string="12\n";
print 'matches ^\d+\n$' . "\n" if( $string=~ /^\d+\n$/);
print 'matches ^\d+$' . "\n"   if( $string=~ /^\d+$/);