Shell Programming and Scripting

inac_4y;0;2;Balance;200;1;1; 
0;2;Balance;100;1;   
0;inac_nq;0;1;Balance;100;1

Balance;200
Balance;100
Balance;100

$> sed 's/.*\(Balance;[^;]*\);.*/\1/' infile
Balance;200
Balance;100
Balance;100

grep -Eo 'Balance;[0-9]{3}' infile

#!/bin/bash
# bash 3.2+
while read -r line
do
    [[ $line =~ (Balance;.[^;]*) ]]
    echo ${BASH_REMATCH[0]}
done < inputfile

perl -wlne '/.*(Balance)(\;\d+).*/ and print $1,$2'  infile.txt

$ awk -F \; '{for (i=1;i<=NF;i++) if ($i~/Balance/) print $i FS $(i+1)}' infile

Balance;200
Balance;100
Balance;100