Me messing around with perl.