If you (ab)use split's ability to limit the number of fields it splits something into, you can do away with the regexp for something a little cleaner...

my($m,$d,$y,$t,$b) = split /[ \/\n]/ => $note, 5;

    --k.