>perl -wMstrict -le
"my $line = 'foo=bar=baz';
 my (undef, $schema_username) = split /=/, $line;
 print $schema_username;
"
bar