{
    my $foo = 'ABC-2N322-850103';
    sub prefix () :lvalue {
        substr $foo, 0, index( $foo, '-')
    }
}