eval 

<<"I sit Broken Hearted";

tr/ied// || split/but only/; *t="d";

@_ while( -l "ater" ) ;

-t "ook" && rand; 

tr/ied/ 2/; *t and split/"my pants"/;

`$0` << ;

I sit Broken Hearted