Parsed with a 2-line regexp? I'll do better:

print chr(20*$2+$3)x($1+1).($4==1?"\n":"") while /\D*?([-\d]+)\D+?([-\
+d]+)\D+?([-\d]+)\D+?([-\d]+)/g;
[download]

Operating on your push() lines in $_ only. Give me some sugar, baby.