Help for this page

Select Code to Download

Select or download this

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

Select or download this

{
    my $foo = 'ABC-2N322-850103';
    sub prefix () :lvalue {
...
ABC-2N322-850103
DEF
DEFG-2N322-850103