Select Code to Download

$ perl -wMstrict -MO=Deparse
sub find_symbol {
...
sub find_symbol {
    'got'->I('here'->to('today'));
}

$ perl -wMstrict -MO=Deparse -e 'sub x { foo bar }'
BEGIN { $^W = 1; }
...
sub x {
    'bar'->foo('baz'->quz('bleep'));
}