Select Code to Download

use YAPE::Regex::Explain;
print YAPE::Regex::Explain ->new(
    qr/([^http.*?\s+]\S{30})/
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

s{(\S{30,}){
    my $ret = $1;
    if( $ret !~ /http/ ){
...
    }
    $ret;
}ge;