Try the following:

use Modern::Perl;

my $writetot = 'first part/second part';
my ($busitotal, $perstotal) = split '/', $writetot;

say "$busitotal -- $perstotal";
[download]

Output:

first part -- second part
[download]

Hope this helps!