use Modern::Perl;

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

say "$busitotal -- $perstotal";

##</code><code>##

first part -- second part