local ($junk,$fulltime) = split(/is /,$j);

##</code><code>##

my ($fulltime) = $j =~ /is (.*)/;