summaryrefslogtreecommitdiffstats
path: root/SSEQ.pl
blob: 2f8feb89083188d909e2029e9f658ecd658ba1c3 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;

chomp(my $string = <>);
chomp(my $substr = <>);
$substr = '(' . join(').*?(', split '', $substr) . ')';
$string =~ $substr;
say join(' ', map { $_ + 1 } @-[1..$#-]);