Regex: matching any Number then a hyphen

[Anonymous Monk]

I have lines of data, all begin with a number. For lines which have a " - " or " – " after the number, but before the next piece of text I'd like to replace this with a ". ". example data

1234 - Foo
56778 – Bar
9999. Baz

desired output

1234. Foo
56778. Bar
9999. Baz

[1nickt]

Hi,

What did you try? How did it fail?

use strict;
use warnings;
use utf8;
use Test::More tests => 3;

for my $line(<DATA>) {
    chomp $line;
    my ($string, $wanted) = split '#', $line;
    $string =~ s/^(\d+)\s*[–-](.*)/$1.$2/;
    is $string, $wanted;
}

__END__
1234 - Foo#1234. Foo
56778 – Bar#56778. Bar
9999. Baz#9999. Baz

Output:

1..3
ok 1
ok 2
ok 3

Hope this helps!

[Anonymous Monk]

here u go u lazy bum

perl -CSD -pe 's/^\d+\K\s*[-.\x{2013}]/./'