Why is the console output returning to the beginning of the line? OR Why is my concatenation not concatenating?

Question

I was inspired by another question to write a script (or rather a one-liner) to grab random Wikipedia pages.

Here's what I've got so far:

# Grab the HTTP header response from Wikipedia's random page link
curl 'http://en.wikipedia.org/wiki/Special:Random' -sI

# Search STDIN for the Location header and grab its content
perl -wnl -e '/Location: (.*)/ and print $1;'

And this works. It outputs a random Wikipedia URL to the console. But I need to append "?printable=yes" to that url to get the Wikipedia page without all the non-article content.

However, running:

curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: (.*)/ and print $1 . "?printable=yes";'

Outputs: ?printable=yespedia.org/wiki/James_Keene_(footballer)

Why is my concatenation not concatenating?

UPDATE:

For the curious, here is the one-liner in its completion:

curl `curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: ([^\r]*)/ and print $1 . "?printable=yes";'`

Answer 1

curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: (.*)/ and chomp($1) and print $1 . "?printable=yes";'

Untested, but this should work. The return to the beginning of the line is caused by a rogue '\r' character at the end of the Location line. The script is printing the Wikipedia URL, complete with '\r' which returns to the beginning of the line, where it then continues to print ?printable=yes. Chomp will remove that '\r' character.