in reply to Re^2: Bugfixing Old Code
in thread Bugfixing Old Code

Are you sure this has ever worked? This line makes no sense: 
my @temp_and_starts = @{$_} =~ /[^\s]+/g;

[download]

Under warnings, it even warns: 

Applying pattern match (m//) to @array will act on scalar(@array)

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom