Perl!
perl kinda working