perl -ni.bak -e "my @text = split(q{;});print join(qq(;$/), @text);" .\funkisym.pm"