Ideone.com

fork download

#!/usr/bin/perl
# your code goes here
 
while (<>)
{
    s/([^0-9]|^)-+([^0-9]|$)/$1 $2/g;
 
    print;
}

Success #stdin #stdout 0s 6044KB

stdin

2014-05-01
this-and
this-and-that
this-and-that-and-that-too
-what-about-this
or-this-
and--these
2015-01-01

stdout

2014-05-01
this and
this and that
this and that and that too
 what about this
or this 
and these
2015-01-01

https://ideone.com/r2CI7v

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!