Ideone.com

fork download

copy

#!/usr/bin/perl
use strict;
use warnings;
my $line = q{MD5ajdhe728ndsdhsds83ndsds /some/path/};
$line =~ /^MD5([a-zA-Z0-9]+)/;
print $1;

Success #stdin #stdout 0s 6188KB

stdin

copy

Standard input is empty

stdout

copy

ajdhe728ndsdhsds83ndsds

https://ideone.com/BzNyvQ

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!