my $file = 'file013.txt';
(my $sk = $file) =~ s/^.*?(\d+).*$/$1/;

##</code><code>##

my $boring_string = '...when I want to keep most of the string...';
(my $exciting_string = $boring_string) =~ s/(keep)/<b>$1</b>/;