Select Code to Download

my $search = "So, I went to the shops and I wanted to buy a book,
but it was
...

my ( $match ) = $search =~ m/$start.*?,(.*?),/s;
print $match;

but it was
too expensive