Select Code to Download

my $text1 = qq{
<div id="aaaa">
...
if ( $text2 =~ /$regex/sg ) {
    warn "Text 2 found ".$1.$3;
}