Select Code to Download

use Modern::Perl;

...
my ($busitotal, $perstotal) = split '/', $writetot;

say "$busitotal -- $perstotal";

first part -- second part