Select Code to Download

$str =~ s///r =~ y///r =~ s///r =~ tr///r

$ perl -E '
    my @users = (
...
EOF
    }
'

    <p>
        Report for Management.
...
    <div>
        ... Guest Report ...
    </div>