package FOO;
use strict;
use warnings;

sub foo {
  my $str = shift;
  return $str if $str =~ /^ssh\@github-/;
}
1;

__END__


=head1 NAME

Foo - The great Foo module

##</code><code>##

  return $str if $str =~ /^\.ssh\@github-/;

##</code><code>##

  return $str if ($str =~ /^\.ssh\@github-/);

##</code><code>##

  return $str if $str =~ /^\.sh\@github-/;